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MODULE BASSONECHR ( 


IDENT = '1=002' i File: BASONECHR.B32 


BEGIN 


51:55 
755:246 BASRTL 


gt ita at 
« SRC JBASONECHR.B52;1 


PASS SESISLSLI ISIS ITI TTT TTT TTP Trier tier ici ret iti tiie i titi it titi iii it 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


LICENSE AND WITH 


; R 
!t TRANSFERRED. 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJE 
:* AND SHOULD NOT BE CONSTRUED AS A COMM 
!# CORPORATION. 


:* DIGITAL ASSUMES NO RESPONSIBI 
:* SOFTWARE ON EQUIPMENT WHICH | 


CT TO CHANGE W 
ITMENT BY DIGI 


L 
S$ NOT SUPPLIED BY DIGITAL. 


SOR eH AREA REAR AAARAAAAAARARRAREAA AERA AAAAAAAAAAAAAAAAAEARARERAEARARERRAEEEE 
' 


++ 
FACILITY: BASIC-PLUS-2 Miscellaneous 1/0 
ABSTRACT: 
This module contains the BASIC ONECHR function 


ENVIRONMENT: VAX-11 User Mode 

AUTHOR: John Sauter, CREATION DATE: 17-APR-1979 
MODIFIED BY: 

1-001 = Original. 

1-002 = Set-up ISBSA_USER_FP. JBS 25-JUL-1979 
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ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH T TERM F SUCH 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ITHOUT NOTICE 
TAL EQUIPMENT 


ITY FOR THE USE OR RELIABILITY OF ITS 
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SWITCHES: 


4 00:51:55 AX-11 iss- 
Be 99:85:32 ORC sBAS 


ss 
BASRTL.SRCJB 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


i LINKAGES: 


REQUIRE "RTLIN:OTSLNK'; 
1 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSONE CHR; 


; INCLUDE FILES: 


REQUIRE ‘RTLML:OTSLUB’; 
REQUIRE ‘*RTLML:OTSISB’; 
REQUIRE "RTLIN:RTLPSECT’; 
LIBRARY ‘RTLSTARLE'; 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

PSECTS: 

ECLARE_PSECTS (BAS); 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
pArreonen ZERO : NO 

BASSSCB’POP : JSB_CB POP NOVALUE, 

BAS$$STOP_IO : NOVALDE; 


VALUE 
$$(B POSH : JSB_CB PUSH NOVALUE, 


Define Linkages 


Next GET gets only one character 


Get LUB definitions 

Get ISB definitions 

Macros for defining psects 
System symbols 


Declare psects for BAS$ facility 


Open channel zero 
Load vogteter Ste 
Done with register CCB 
Signal fatal 1/0 error 


V4.0-74 
ONECHR.B52;1 
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The following are the error codes used in this module. 


EXTERNAL LITERAL 
BAS$K_10_CHANOT 


: UNSIGNED (8); 


! Channel not open. 


AX-11 B 


Lisg-32 
BASRTL-SRCIBASONECHR B32; 1 


J 16 

BASSONE CHR 16-Sep-1984 00:51:55 AX-11 Bliss-32 V4.0-74 Page 4 
1000 1228687138 99: 3d:32 EBASRTL SRE BASONECHR.B52;1 ’ (3) 

s 195 941 1 GLOBAL ROUTINE BASSONECHR ( ! Limit next GET to one character 

: 118 3t8 1 CHAN ! Channel to do this on 

3; 11 9435 1 d= 

3; 118 0944 1 

; 119 pete 1 le¢ 

: : Y 8 ; FUNCTIONAL DESCRIPTION: 

2% § bees 1! Limit the next sequential GET on this channel to a single 

. 949 1! character. This only applies to terminals, and its purpose 

> 124 0950 1! is to permit single-character interaction. it can be used 

3 Yeo yo) i in combination with the NOECHO function to allow the BASIC 

: } $ 926 : } program to provide its own Line editor. 

; 128 0954 1 ! FORMAL PARAMETERS: 

; 129 0955 1! 

; 130 3328 1: CHAN. rl.v The channel to do this to. 

3 13) 0957 1! 

s 1 ¢ 0958 1 ! IMPLICIT INPUTS: 

3; 3 0959 1! 

3; (1 0960 1! NONE 

3 335 0961 1! 

; 136 0306 1 ! IMPLICIT OUTPUTS: 

3 i397 0965 1! ; 

; «138 0964 1! LUBSV_ONECHR which, when set, Limits the next sequential 

; 139 0965 1! GET to a single character. 

3; 140 0966 1! 

3; «(141 0967 1 ! ROUTINE VALUE: 

; 16g 0968 1 ! COMPLETION CODES: 

:. 0969 1! 

3 144 0970 1! SS$_NORMAL 

3; «6145 0971 1! 

3 «(146 0972 1 ! SIDE EFFECTS: 

3 147 0973 1! 

; «148 0974 1! Signals if an error is encountered. ° : 

; (149 0975 1! BASS$$CB_PUSH will signet if the channel number is invalid. 

3 190 0976 1! We signal BASS$K_IO_CHANOT if the channel is not open. 

: 151 0977 1! 

; 13¢ 0978 1 !-- 

3; 0979 #1 

3 «6154 0980 BEGIN 

3 339 0981 

; 156 098 BUILTIN 

3 + 44 098 FP; 

3 6159 0385 GLOBAL REGISTER 

; 160 98 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

: 161 098 

3 16¢ 0988 LOCAL 

3 197 94.34 FMP : REF BLOCK C, BYTE); 

: 165 991 FMP = .FP; 

: 166 338 '¢ 

s ! Get the CCB for the channel. 

: 185 395 5 

: 170 8996 IF (.CHAN EQL 0) 

: 171 0997 2 THEN 


K 16 
| BASSONECHR 16-Sep-1984 00:51:55 AX-11 Bliss-32 V4.0-74 
1-002 eH aetS RL a VOT bt rg Serie oe Page 33 
: 148 min 
3 \r 4 The user is referencing his controlling terminal. 
: 176 100 BASS$CB_PUSH (LUBSK_LUN_INPU, LUB$K_ILUN_MIN); 
; Ve 1608 F CCB CISBSA_USER_FPJ~= .FMP CgrSL SAUE-FPT: 
; V9 1005 If the controlling terminal is not yet open, open it. 
: 181 1007 3 
; 1 Hh IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSSOPEN_ZERO (.FMP CSFSL_SAVE_FP]); 
: 184 1010 END 
> «6185 1011 ELSE 
Oe 2S Peete 
3 133 ite This is an ordinary channel. 
; 190 1016 : BASS$$CB_PUSH (.CHAN, LUBSK_LUN_MIN); 
3; 6191 1017 3 ccB CISBS$A_USER_FPJ = .FMP SFSL_SAVE_FP); 
; 13¢ 1018 § END; 
: 188 1020 3 
; '¢ 
3; «6195 1021 2 ! If the channel is not now open, either there is a problem with 
: 136 1358 § the OPEN code, or the non-zero channel was not first opened. 
: 198 1024 2 
; 199 1025 § IF ( NOT .CCB CLUBSV_OPENED]) THEN BAS$$STOP_IO (BAS$K_IO_CHANOT); 
aoa 
; 202 1028 5 i Now set the ONECHR bit, which will cause the record level code 
: sor ep 2 ;_to tell RMS to stop after a single character. 
; 205 1031 CCB CLUBS$V_ONECHR) = 1: 
; 207 1038 We are done with register CCB. 
: 209 1035 2  BASSS$CB_POP (); 
3 210 1036 2 RETURN TSS$_NORMAL); 
: 211 1037 1 END; ! end of BASSONECHR 
-TITLE BASSONECHR 
-IDENT \1-002\ 
-EXTRN BASSSOPEN_ZERO, BAS$$CB_PUSH 
-EXTRN BAS$S$CB_POP, BAS$$STOP_TO 
-EXTRN BAS$K_IO_CHANOT 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
081C 000 eENTRY BASSONECHR, Save R2,R35,R4,R11 3; 0941 
$4 000000006 90 O0g9 ROVAB BASS$CB_ PUSH. Ra : 
3 5D D B88 MOVL FP, FMP 3; 0991 
04 AC 05 0000C TSTL CHAN : 0996 
if 1 OOOF BNEQ 1$ ; 
50 08 CE 00011 MNEGL #8, RO : 1002 


16 
iodine 1$- Sep-19 0:51:55 AX-11 Bliss-32 V4. 
1-002 1o=geb 138s 99:28:32 XSaTL gaese 
52 07 CE 00014 MNEGL #7, R2 
64 16 00017 JSB BAS$$CB_PUSH 
FF4C cB 0c A3 D 0019 MOVL 12CFMP), -180(CCB) 
29 FC Ag E8 OO0TF BLBS -4(CCB), 3$ 
0c A3 0D 00023 PUSHL 12(FMP) 
000000006 00 01 fe 8 6 CALLS #1, BASSSOPEN_ZERO 
3 11 00020 RB 2$ 
D4 O002F 1$ CLRL RO 
52 04 AC 00 00031 MOVL CHAN, R2 
64 16 00035 JSB BAS$$CB_PUSH 
FF4C cB 0c A3 D it MOVL 12(FMP), -180(CCB) 
0B FC AB 3 808 D 2$: BLBS -4(CCB), 3$ 
7E 006 8F 9A 00041 MOVZBL #BAS$K_[0_CHANOT, -(SP) 
00000000G 00 01 FB 00045 CALLS #1, BASS$STOP_IO 
AO AB 02 88 0004C 3$ BISB2 #2, -96(CCB 
000000006 00 16 00050 JSB BAS$$CB_POP 
50 01 dO 00056 MOVL #1, RO 
04 00059 RET 
; Routine Size: 90 bytes, Routine Base: _BASSCODE + 0000 
3; 22 1038 1 
s 213 1039 1 END ' end of module BASSONECHR 
>: 214 1040 1 
: aes 1041 O ELUDOM 
3 PSECT SUMMARY 
; Name Bytes Attributes 
; _BASSCODE 90 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Z Library Statistics 
: ae ae aa ee eee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped ime 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 2 0 581 00:01.2 
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BASONE etHR B92; 1 (3) 


od 
0: 
: 
34 
age 
“at 


Size: 90 3 

Run Time: 7 

Elapsed Time: 0 4 

Lines/CPU Min: 

[ence Aol le 4 

peneey Used: 118 p 
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